home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / lisp / elk-2_0.lha / elk-2.0 / examples / scheme / prim < prev    next >
Encoding:
Text File  |  1990-04-03  |  230 b   |  15 lines
  1. ;;; -*-Scheme-*-
  2.  
  3. (define (p n)
  4.   (let f ((n n) (i 2))
  5.     (cond
  6.      ((> i n) '())
  7.      ((integer? (/ n i))
  8.       (cons i (f (/ n i) i)))
  9.      (else
  10.       (f n (+ i 1))))))
  11.  
  12. (print (p 12))
  13. (print (p 3628800))
  14. (print (p 4194304))
  15.